home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / iq.arc / ANTONYM2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-13  |  4.6 KB  |  100 lines
  1. 10  KEY OFF:KEY(10) ON:ON KEY(10) GOSUB 570:KEY(9) ON:ON KEY(9) GOSUB 370:DIM P(35):FOR I=1 TO 35:P(I)=I:NEXT I:COLOR 3,0,8
  2. 20  CLS:T=0:N=0:GOSUB 980:FOR I=1 TO 100:SWAP P(INT(RND*35+1)),P(INT(RND*35+1)):NEXT I
  3. 30  CLS:LOCATE 1,34:COLOR 0,7:PRINT"IQ Builder ":COLOR 11,0
  4. 40  LOCATE 2,34:PRINT"Antonyms 2":COLOR 0,11
  5. 50  LOCATE 4,21:PRINT CHR$(201);
  6. 60  FOR J=1 TO 35
  7. 70    PRINT CHR$(205);
  8. 80    IF J > 35 GOTO 100
  9. 90    NEXT J
  10. 100  PRINT CHR$(187)
  11. 110  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  12. 120  PRINT CHR$(186)
  13. 130  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  14. 140  PRINT CHR$(186)
  15. 150  LOCATE 7,21:PRINT CHR$(200);
  16. 160  FOR J=1 TO 35
  17. 170    PRINT CHR$(205);
  18. 180    IF J > 35 GOTO 200
  19. 190    NEXT J
  20. 200  PRINT CHR$(188):COLOR 3,0
  21. 210  LOCATE 9,1:PRINT"Antonyms are words of opposite meaning. ";
  22. 220  PRINT"Pick the word whose meaning is most"
  23. 230  PRINT"unlike the one in the box."
  24. 240  XX=1:P=P(XX)
  25. 250  IF P>1 THEN FOR J=1 TO P-1:FOR X=1 TO 7:READ A$:NEXT X,J
  26. 260  PRINT:COLOR 0,3:PRINT"Problem" P
  27. 270  READ A$:PRINT:COLOR 11,0
  28. 280  PRINT TAB(1-INT(LEN(A$)/2)) "VARPTR" STRING$(LEN(A$),"SOUND") "COLOR"
  29. 290  PRINT TAB(1-INT(LEN(A$)/2)); "CALL"; A$; "CALL"
  30. 300  PRINT TAB(1-INT(LEN(A$)/2)) "CLS" STRING$(LEN(A$),"SOUND") "'"
  31. 310  PRINT:FOR X=1 TO 5:COLOR 3,8:READ A$:PRINT"(";:COLOR 11,0:PRINT X;:COLOR 3,8:PRINT")  " A$:NEXT X:READ R
  32. 320  LOCATE 25,1:PRINT "Your choice is - ";
  33. 330  GOSUB 990:IF INSTR("12345",IKEY$)=0 THEN 330 ELSE C=VAL(IKEY$)
  34. 340  N=N+1:IF C=R THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Correct!";:T=T+1:TIMEOUT=3:GOSUB 950:LOCATE 25,1:PRINT SPC(79);
  35. 350  IF C<>R THEN PLAY "mfn27n20t32":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 11,12:PRINT"No!  Try again.";:COLOR 7,0:TIMEOUT=3:GOSUB 950:LOCATE 25,1:PRINT SPC(79);:GOTO 320
  36. 360  XX=XX+1:IF XX<36 THEN P=P(XX):GOSUB 940:RESTORE:GOTO 250
  37. 370  COLOR 11,4:LOCATE 1,1:PRINT SPC(33):LOCATE 1,45:PRINT SPC(35)
  38. 380  LOCATE 2,1:PRINT SPC(33):LOCATE 2,45:PRINT SPC(35)
  39. 390  LOCATE 3,1:PRINT SPC(79)
  40. 400  LOCATE 4,1:PRINT SPC(20):LOCATE 4,58:PRINT SPC(22)
  41. 410  LOCATE 5,1:PRINT SPC(20):LOCATE 5,58:PRINT SPC(22)
  42. 420  LOCATE 6,1:PRINT SPC(20):LOCATE 6,58:PRINT SPC(22)
  43. 430  LOCATE 7,1:PRINT SPC(20):LOCATE 7,58:PRINT SPC(22)
  44. 440  LOCATE 8,1:PRINT SPC(79)
  45. 450  LOCATE 9,1:PRINT SPC(79)
  46. 460  LOCATE 10,1:PRINT SPC(79)
  47. 470  COLOR 11,4:GOSUB 940:COLOR 3,0:LOCATE 15,17
  48. 480  IF N<3 THEN COLOR 11,0:PRINT"You didn't give me much of a chance, did you?":GOTO 550
  49. 490  PRINT"You scored" T "right out of" N "or" INT(100*T/N) "percent."
  50. 500  IF T/N<0.6 THEN LOCATE 18,21:PRINT"I'll bet you do better next time.":TIMEOUT=7:GOSUB 850:RUN
  51. 510  LOCATE 18,34:IF T/N<=0.8 THEN PRINT"Good score!":GOTO 550
  52. 520  IF T/N<=0.9 THEN PRINT"Very good!":GOTO 550
  53. 530  IF T/N<=0.99 THEN PRINT"Excellent!":GOTO 550
  54. 540  COLOR 19,0:PRINT"Brilliant!"
  55. 550  COLOR 3,0:LOCATE 25,1:PRINT "Press space bar to continue.";
  56. 560  IN$=INKEY$:IF IN$="" THEN 560 ELSE 580
  57. 570  SYSTEM
  58. 580  RUN "numbers1
  59. 590  DATA abet, compress, install, polarize, hinder, uncover, 4
  60. 600  DATA able, unearned, nondescript, irregular, biased, incompetent, 5
  61. 610  DATA abrasive, victorious, suitable, uninhabited, smooth, damp, 4
  62. 620  DATA blame, misrepresent, recourse, absolve, defy, match, 3
  63. 630  DATA brazen, cultivated, broken, shy, tough, burnish, 3
  64. 640  DATA casual, belated, idyllic, deliberate, decorous, benevolent, 3
  65. 650  DATA censure, becalm, offset, praise, besiege, profit, 3
  66. 660  DATA charge, TNT, onward, breach, purchase, cancel, 4
  67. 670  DATA chide, jest, belabor, huddle, praise, devour, 4
  68. 680  DATA dally, relax, hasten, declaim, prevail, rebel, 2
  69. 690  DATA defer, accelerate, embroil, blunder, reinstate, escape, 1
  70. 700  DATA denounce, commend, rebut, behold, dissemble, establish, 1
  71. 710  DATA dowdy, contrived, emphatic, young, twisted, chic, 5
  72. 720  DATA dread, plea, weakness, shriek, welcome, revise, 4
  73. 730  DATA earnest, laconic, tranquil, legendary, frivolous, irrelevant, 4
  74. 740  DATA eccentric, disinterested, objective, oblique, trustworthy, ordinary, 5
  75. 750  DATA ethical, dogmatic, artistic, immoral, political, learned, 3
  76. 760  DATA exalt, abase, submit, laud, issue, bury, 1
  77. 770  DATA explicit, immodest, conceited, valid, ambiguous, improbable, 4
  78. 780  DATA feasible, conventional, impractical, unclean, fearful, mundane, 2
  79. 790  DATA formidable, mortal, weak, confused, opponent, strong, 2
  80. 800  DATA foster, unfrock, recondition, discharge, discourage, upstage, 4
  81. 810  DATA frank, uncommon, restrained, eloquent, undefined, indolent, 2
  82. 820  DATA futile, effective, hopeless, sad, happy, poor, 1
  83. 830  DATA genial, vulnerable, uneven, sullen, nimble, hungry, 3
  84. 840  DATA haste, delay, speed, frighten, help, waste, 1
  85. 850  DATA humble, proud, redundancy, meekness, solitude, dryness, 1
  86. 860  DATA humorous, avaricious, solemn, ambiguous, farcical, structural, 2
  87. 870  DATA intentional, pronounced, accidental, continual, auxiliary, rotund, 2
  88. 880  DATA likely, friendly, likable, improbable, apt, nice, 3
  89. 890  DATA lunacy, rectitude, chicanery, sanity, deliverance, cleverness, 3
  90. 900  DATA nonchalant, mendable, peculiar, sneering, excitable, boring, 4
  91. 910  DATA prosperity, adversity, uncertainty, democracy, renown, avocation, 1
  92. 920  DATA ransom, hostage, kidnap, retain, capture, release, 3
  93. 930  DATA wearisome, knowing, agreeable, fiery, interesting, gentle, 4
  94. 940  FOR Y=11 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 11,1:RETURN
  95. 950  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  96. 960  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  97. 970  IF TIMEOUT > TIME3 - TIME2 THEN 960 ELSE RETURN
  98. 980  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  99. 990  IKEY$=INKEY$:IF IKEY$="" THEN 990 ELSE RETURN
  100.